Gyakorló feladat rendezésre:

Tömb feltöltése n darab véletlen számmal és elrendezése legkisebb alapján történő rendezéssel

program Rend1;
uses crt;
var i,n,x,j:integer;
    a:array [1..100] of integer;
BEGIN
   clrscr;
   i:=1;
   n:= ;
   writeln('A tomb a rendezes elott');
   while (i<=n) do begin
      a[i]:=trunc(90*random+1);
      i:=i+1;
      writeln('A tomb ',i,'. eleme:',a[i]);
   end;
   i:=1;
   while (i<n) do begin
      j:=i+;
      while (j<=n) do begin
         if (a[j]<a[i]) then begin
             x:=a[j];
             a[j]:=a[i];
             a[i]:=x;
             end;
         j:=j+;
      end;
   i:=i+;
   end;
   writeln('');
   writeln('Rendezés után');
   i:=1;
   while (i<=n) do begin
      writeln('A tomb ',i,'. eleme:',a[i]);
      i:=i+1;
      end;  
END.